home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2002-09_2002_CSW_Side_B.d64 / angyal %capac (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  25 lines
  1. 0 sys2832
  2. 4 poke53280,0:printchr$(147)
  3. 5 sys52480,peek(186),"angyal.dat",1
  4. 15 poke56579,255
  5. 16 poke56577,255
  6. 40 reada,b,v
  7. 50 ifv=255thenrestore
  8. 60 c=a/0.05966:f=int(c/256)
  9. 70 poke54273,f:poke54272,c-256*f
  10. 90 poke54277,136:poke54278,86
  11. 110 poke54296,15
  12. 120 poke54276,33
  13. 125 poke56577,v
  14. 130 fori=1tob:next
  15. 140 poke54276,32
  16. 150 goto40
  17. 500 data528,500,254,528,250,253,495,250,252,528,500,251,396,600,250
  18. 510 data660,500,249,660,250,248,594,250,248,660,500,249,528,500,250
  19. 520 data660,500,251,880,500,252,792,1000,253,0,250,254
  20. 530 data660,500,251,880,500,252,792,1000,253,0,250,254
  21. 540 data792,500,253,792,250,252,880,250,251,792,500,250,660,500,249
  22. 550 data704,500,248,704,250,249,792,250,251,704,500,252,594,500,253
  23. 560 data660,500,254,594,500,253,528,1000,252,0,250,251
  24. 570 data660,500,254,594,500,253,528,1000,252,0,250,255
  25.